TCHART.CNT[TIM,LSP]4 - www.SailDart.org

perm filename TCHART.CNT[TIM,LSP]4 blob sn#778671 filedate 1984-12-02 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00007 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	tex fchart
C00003 00003	(fasload data)
C00005 00004	(fasload data)
C00009 00005	(fasload data)
C00019 00006	(fasload data)
C00021 00007	Tak
C00024 ENDMK
C⊗;
;tex fchart
;r dvidov;fchart/s fchart.pre

tex schart
r dvidov;schart/s schart.pre
tex nsch
r dvidov;nsch/s nsch.pre
tex nch
r dvidov;nch/s nch.pre
tex gchart
r dvidov;gchart/s gchart.pre
tex dchart
r dvidov;dch/s dch.pre
tex rchart
r dvidov;rchart/s rchart.pre

;dover fchart.pre

dover schart.pre
dover nsch.pre
dover nch.pre
dover gchart.pre
dover dch.pre
dover rchart.pre

(fasload data)

(fasload fchart)
(defun fcharts ()
       (em:ecommands '(α π α ε F C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv fdderiv
		      div2 fft puzzle triang fprint fread tprint frpoly))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-fchart (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(fcharts)

(load "fchart.lsp")
(setq terpri ())

(do-fchart 'tak "tak.tex[1,rpg]" ())
(fasload data)

(fasload schart)
(defun scharts ()
       (em:ecommands '(α π α ε S C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (setq *normalize* ())
       (setq *leave-outs* '(ti-exp))
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv fdderiv
		      div2 fft puzzle triang fprint fread tprint frpoly))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-cpu (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-real (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))
(defun normal-scharts ()
       (em:ecommands '(α π α ε N S C H A R /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (setq *normalize* t)
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv fdderiv
		      div2 fft puzzle triang fprint fread tprint frpoly))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-cpu (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-real (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(scharts)

(normal-scharts)
(fasload data)

(fasload tchart)
(setq *machine-comps*
      '((sail d1 d2 d3 s3600)
	(interlisp-10 interlispvax780 d1)
	(interlispvax780 dec780cl franz780)
	(lmi s3600 d1 d2 d3)
	(s3600 lmi lmi-mc lmi-nc)
	(perq s3600 d1 lm2 d3)
	(franz750 franz780 franz68k dec750cl)
	(franz750 nil750 psl750 dec750cl)
	(psl780 psl750 psl-dn300 psl-dn600)
	(sail interlisp-10 psl20 s3600)
	(psl-3081 psl20 psl-cray s-1 s3600)
	(dec730cl dec750cl dec780cl dec785cl)
	(psl780 psl-dn160 psl-dn300 psl-dn600)
	(psl-hp-ux psl-hp200 psl780 psl750)))
(defun normal-charts ()
       (em:ecommands '(α π α ε N C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l *machine-comps*)
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* t)
	    (setq *global-normalize* ())
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))
(defun global-normal-charts ()
       (em:ecommands '(α π α ε G C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l *machine-comps*)
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* t)
	    (setq *global-normalize* t)
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))
(defun global-normal-charts-psl780 ()
       (em:ecommands '(α π α ε D C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l *machine-comps*)
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* t)
	    (setq *global-normalize* 'psl780)
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))
(defun regular-charts ()
       (em:ecommands '(α π α ε R C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l *machine-comps*)
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* ())
	    (setq *global-normalize* ())
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))


(normal-charts)
(global-normal-charts)
(global-normal-charts-psl780)
(regular-charts)
(fasload data)

(fasload schart)
(defun normal-scharts ()
       (em:ecommands '(α π α ε N S C H R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (setq *normalize* t)
       (setq *max-length* 19)
       (setq *leave-outs* '(franz780yy franz780ny franz780nn
				       psl-dn600 psl-hp-ux ti-exp
				       s3600fpa franz750yy franz750ny franz750nn
				       franz68kyy franz68kny franz68knn))
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv
		      div2 fft puzzle triang fprint fread tprint))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-real (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(normal-scharts)
Tak
Takl
Stak
Ctak
Takr
Iterative Div2
Recursive Div2
Deriv
Dderiv
Fdderiv
Boyer
Browse
Destructive
Traverse Initialization
Traverse
Puzzle
Triang
Fread
Fprint
Tprint
FFT
Frpoly Power = 2 r = x+y+z+1
Frpoly Power = 2 r2 = 1000r
Frpoly Power = 2 r3 = r in flonums
Frpoly Power = 5 r = x+y+z+1
Frpoly Power = 5 r2 = 1000r
Frpoly Power = 5 r3 = r in flonums
Frpoly Power = 10 r = x+y+z+1
Frpoly Power = 10 r2 = 1000r
Frpoly Power = 10 r3 = r in flonums
Frpoly Power = 15 r = x+y+z+1
Frpoly Power = 15 r2 = 1000r
Frpoly Power = 15 r3 = r in flonums